home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mission to McDonaldLand
/
Mission To McDonaldLand.iso
/
calnz.dxr
/
00020_Script_Old mouse Rollover stuff
< prev
next >
Wrap
Text File
|
1998-10-25
|
2KB
|
76 lines
on rollrel me
global stageSprite
set stageSprite = 48
puppetsprite stageSprite,true
set the castNum of sprite stageSprite to the myRollover of me
set the type of sprite stageSprite = 16
set the ink of sprite stageSprite = 0
set the foreColor of sprite stageSprite = 255
set the backColor of sprite stageSprite = 0
set the loch of sprite stageSprite to the myRx of me + the loch of sprite the myChannel of me
set the locv of sprite stageSprite to the myRy of me + the locv of sprite the myChannel of me
set the stretch of sprite stageSprite = false
set the visible of sprite stageSprite = true
updatestage
end
on unrollrel me
global stageSprite
puppetsprite stageSprite,false
updatestage
end
on rollabs me
global stageSprite
set stageSprite = 48
puppetsprite stageSprite,true
set the castNum of sprite stageSprite to the myRollover of me
set the type of sprite stageSprite = 16
set the ink of sprite stageSprite = 0
set the foreColor of sprite stageSprite = 255
set the backColor of sprite stageSprite = 0
set the loch of sprite stageSprite to the myRx of me
set the locv of sprite stageSprite to the myRy of me
set the stretch of sprite stageSprite = false
set the visible of sprite stageSprite = true
updatestage
end
on unrollabs me
global stageSprite
puppetsprite stageSprite,false
updatestage
end
on null me
nothing
end
on unrollplay me
global stageSprite
puppetsprite stageSprite,false
updatestage
end
on unrollrefresh me
if the mystate of me="up" then
norm (me)
else
press(me)
end if
updatestage
refreshmovies()
end